home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / PROTOTRK.M3 < prev    next >
Text File  |  1996-04-01  |  4KB  |  144 lines
  1. name ProtoTRAK
  2.  
  3. % 00
  4. / 00
  5. : >8
  6. N >3
  7. G >2
  8. X ->2.>4
  9. Y ->2.>4
  10. Z ->2.>4
  11. A ->2.>4
  12. I ->2.>4
  13. J ->2.>4
  14. K ->2.>4
  15. Q ->2.>4
  16. R ->2.>4
  17. P >40
  18. F >2.1
  19. H >2
  20. D >2
  21. T >2
  22. M >2
  23. S >4
  24. ; 00
  25.  
  26. ModalLetters X Y Z F R                # List of letters that are modal    
  27.  
  28. ModalGs 73 74 76 80 81 82 83 84 85    # List of g codes that are modal    
  29.  
  30. Sequence#s N 1 1 1                    # Char, freq, incr & start          
  31. First#? N                             # Y or N  'Output 1st sequence no.  
  32. Last#? N                              # Y or N  'Output last sequence no. 
  33.  
  34. HCode X                               # X or X U  'Horizontal char.       
  35. VCode Y                               # Y or Y V  'Vertical char.         
  36. Dcode Z                               # Depth char.                       
  37. FeedCode F                            # Feed rate char.                   
  38.  
  39. Comment ( )                           # Begin End comment char.           
  40.  
  41. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  42. Coolant 8 9 7                         # On, Off & Mist m codes            
  43. DComp 41 42 40                        # Left, Right & Cancel m codes      
  44. LComp 43 49                           # On & Off codes                    
  45.  
  46. Feed G1                             # Linear move                       
  47. Rapid G0                            # Rapid positioning word            
  48. Cw G2                               # Circular move clockwise           
  49. Ccw G3                              # Circular move counter clockwise   
  50.  
  51. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  52.  
  53. Work G                                # Work offset register              
  54.  
  55. CtrCode I J                           # I J or R or I J K L               
  56. Helical? N
  57.  
  58. Spaces? Y                             # Y or N  'Spaces between words     
  59.  
  60. Incremental? N                        # Y or N  'Inc or abs output        
  61. CtrIncremental? Y                     # Y or N  'Inc or abs I & J         
  62. ByQuadrants? Y                        # Y or N  'Break arcs at quadrants  
  63.  
  64. ZRestart? N                           # Y or N  'New cycle if diff. depths
  65.  
  66. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  67.  
  68.  
  69. Drill 1                               # Drilling canned/manual cycle      
  70. G81 Z[D] R[Vclear] F[FRate]
  71. G0 X[H] Y[V]
  72. end cancel
  73.  
  74. Peck 1                                # Pecking canned/manual cycle       
  75. G83 Z[D] Q[VBite] R[Vclear] F[FRate]
  76. G0 X[H] Y[V]
  77. end cancel
  78.  
  79. Tap 1                                 # Tapping canned/manual cycle       
  80. G84 Z[D] R[Vclear] F[Frate] Q[VBite]
  81. G0 X[H] Y[V]
  82. end cancel
  83.  
  84. Ream 1                                # Reaming canned/manual cycle       
  85. G85 Z[D] R[Vclear] F[FRate]
  86. G0 X[H] Y[V]
  87. end cancel
  88.  
  89. Bore 1                                # Boring canned/manual cycle        
  90. G86 Z[D] R[Vclear] F[FRate]
  91. G0 X[H] Y[V]
  92. end cancel
  93.  
  94. Back 1                                # Back boring canned/manual cycle   
  95. G87 Z[D] R[Vclear] F[FRate]
  96. G0 X[H] Y[V]
  97. end cancel
  98.  
  99. Cancel                                # Cancel a canned/manual cycle      
  100. G80
  101. end
  102.  
  103. StartCode                             # Start of the program              
  104. %0:[Program#]
  105. G90 G80
  106. End
  107.  
  108. 1stToolChange                         # First tool change                 
  109. T[Tool] M6
  110. M[Direct] S[Speed]
  111. G0 X[H] Y[V]
  112. G45 Z[D] H[Lcomp] T[NextTool]
  113. M[Cool]
  114. End
  115.  
  116. Infeed                                # Enable cutter comp                
  117. G[Side] X[H] Y[V] D[DComp] F[FRate]
  118. end
  119.  
  120. Outfeed                               # Disable cutter comp               
  121. G1 G40 X[H] Y[V]
  122. end
  123.  
  124. ToolChange                            # Secondary tool changes            
  125. G0 M9
  126. G28 Z[ToolD]
  127. M6
  128. M[Direct] S[Speed]
  129. G0 X[H] Y[V]
  130. G45 Z[D] H[Lcomp] T[NextTool]
  131. M[Cool]
  132. End
  133.  
  134. EndCode                               # End of the program                
  135. G0 M9
  136. G28 Z[ToolD]
  137. G28 X0 Y0 M05
  138. M6
  139. M30
  140. %0
  141. End
  142.  
  143. replace "N1 " with ""
  144.